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MODULE SCHFCB ( 


BEGIN 
: 


LRA AA AAA AAAAAARA AERA RAAERAA AERA AERA AAA AAA ARATE TEAR RE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ACCORDANCE W THE TERM F H H_TH 


t® ONLY IN AC ITH $ SUCH LICENSE AND WIT E 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI FTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


ie TRANSFERRED. 


‘® THE INFORMATION IN THIS SOFTWARE IS SUBJ 


ECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMI 


e#aeeneneeeeeneeeeeneenennnn 


; 2 : 
s § 
3 5 1 : 
e 6 1 . 
; 7 1 ; 
: 8 1 : 
3 s 1 ; 
; Wy 1 : 
; V : ; 
; i$ 1 : 
; % 1 : 
; a : 
; 1! : 
P4 17 1! ¢ 
5; 0 1 : 
RB BBY : 
co: a 021 1 
; $§ 0 1 !® AND TMENT BY DIGITAL EQUIPMENT ° 
: $3 O23 1 is CORPORATION. : 
: 25 0 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS : 
: $8 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° 
; :* ° 
. ' . 
: : s : Fpacdenseneacnsabencebheepeesnbeneseuendnnnenenbebesenesenneuseessetennanee ‘ 
: 0 0 1 : 
3 He , : i++ : 
; 38 ; : FACILITY: F11ACP Structure Level 1 ; 
; 35 035 1 | ABSTRACT: ; 
0 1! This routine searches the current volume's FCB List for the : 
3 3 8 : FCB representing the desired file number. : 
i 40 0040 1 | ENVIRONMENT: | : 
> oe 0042 1} STARLET operating system, including privileged system services | ; 
; 43 0045 1! and internal exec routines. | : 
; 65 045 1 I= : 
:; 46 oe 1! : 
5 of 047 1! 
3 rt 4 Bee i AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 15:41 : 
; 30 0056 i MODIFIED BY: 2 
: 2$ 0088 1/ A0101 ACG26369 Andrew C. Goldstein, 31-Dec-1979 17:05 $ 
5 a7 O027 ' Fix multi-header file interlock bug ; 
: ee $088 1/ A0100 ACG00001 : Andrew C. Goldstein, 10-Oct-1978 20:03 3 
3 28 bne$ : Previous revision history moved to F11A.REV : 
4 ;*e - 


1§-ep-1964 Poiere)  ptecbimGhafencch ik, see ascurce.e32:1°%° a od 
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: 
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GLOBAL ROUTINE SEARCH_FCB (FILE_ID) = 


14 


FUNCTIONAL DESCRIPTION: 
This routine searches the current volume's FCB List for the 
FCB representing the desired file number. 

CALLING SEQUENCE: 
SEARCH_FCB (ARG1) 


INPUT PARAMETERS: 
ARG1: address of desired file ID 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB address of volume 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
FCB address if found 
zero if not 


SIDE EFFECTS: 
NONE 


BEGIN 
P 
FILE_ID : REF BS.OCK; ! file ID arg 
LOCAL 
: REF BBLOCK, ! current FCB being looked at 
PREV_FCB : REF BBLOCK; ! previous FCB in List 
EXTERNAL 
CURRENT_VCB : REF BBLOCK; ! VCB of volume in process 


4 
. 
' 
. 
' 
. 
' 
' 
. 


Pp 
F 


it the pointers and start scanning the FCB List, which is a double 

nked list. Check for consistency of pointers and the block ID for each 

B. We win when the FCB containing the desired file number is found; 
lose at end of List (pointing back to the VCB). 


EV_FCB = .CURRENT VCB; 
6 = .CURRENT_VCBLUCBSL_FCBFLI; 


BEGIN 


Pa 
ISCHFCB.B32;1 9" ( 


; Routine Size: 72 bytes, Routine Base: S$CODE$ + 0000 
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16-Sep-1984 01:17:40 VAX-11 Bliss-32 V4.0-742 Page 4 

13-38-38 933 5gi 34 DISKSVMSMASTER:CF11A.SRCJSCHFCB.B32;1 ’ (2) | 
: ! 9 ge 3 ; UNTIL FCB EQL .CURRENT_VCB DO : 
: 4 435 4 IF .FCBCFCBSB_TYPE) EQL DYNSC_FCB : 
. 3 4 04 $ 4 AND .FCBCFCBSC_FCBBLJ EQL .PREV_FCB : 
: 124 437 4 THEN ; 
: 125 438 2 BEGIN : 
: 126 439 IF FILE IDCFIDSW_NUM] EQL .FCBCFCBSW_FID_NUM] : 
: i i aie) 2 THEN EXITCOOP .FCB: : 
: 129 44 PREV_FCB = .FCB; ! Link to next FCB : 
: 130 rk FCB = .FCBCFCBSL_FCBFLI; ; 
: 131 444 : 
: i : ree ¢ USE us CHECK (NOTFCBFCB, FATAL, ‘FCB Linkage broken’) 
3 Ld . "Te nkage broken'); ; 
: Fe 0447 4 D ! end of ion 3 
: 135 0448 ; END : 
3 138 0449 3 
: 137 0450 EQL -1 ; 
; 138 0451 THEN 0 ' return 0 if loop failed . 
; ‘7, Bee ELSE .FCB : else FCB address : 
3; (141 0454 1 END; ! end of routine SEARCH_FCB : 
.TITLE SCHFCB - : 
, -IDENT \V04-000\ . ; 
.EXTRN CURRENT_VCB, BUG$_NOTFCBFCB F 
«PSECT S$CODES,NOWRT,2 ; 
0000 00000 .ENTRY SEARCH_FCB, Save nothing : 0376 : 
51 00006 CF DO 00002 MOVL § CURRENT_VCB, PREV_FC : 0428 : 
50 00006 DF DO 00007 MOVL § @CURRENT VCB, FC + 0429 : 
00006 CF 50 D1 0000C 1$ CMPL FCB, CURRENT.VCB > 0433 ; 
26 13 00011 BEQL 4$ ; : 
07 0A AO 91 00013 CMPB  ~=s-:«10( FCB), #7 : 0435 : 
1A 12 00017 BNEQ 3$ ; F 
51 04 Ad D1 00019 CMPL 4(FCB), PREV_FCB > 0436 : 
14 12 00010 BNEQ 3$ ; : 
24 AO 04 BC B1 OO01F CMPW 389s AFILE_ID, 36(FCB) + 0439 : 
05 12 00024 BNEQ 2$ ; : 
51 50 D0 00026 MOVL FCB, R1 : 0440 ; 
11 11 00029 BRB 5$ ; : 
51 50 DO 00028 2$ MOVL FCB, PREV_FCB > 044 : 
50 60 00 0002E MOVL (FCB), > 044 ; 
09 11 00031 BRB 1$ > 0435 : 
Fert 0033 3$ BUGW > 0446 ; 
90 0* 000 -WORD  <BUGS_NOTFCBFCB!4> : 3 
D3. 11 000 BRB 1$ : 0433 : 
51 gi CE 09 9 4$: MNEGL #1, R1 ; : 
FFFFFFFE © 8F 1 D1 0003c 5$: CMPL = R1, #=1 : 0450 : 
08 12 0004 BNEQ 6$ ; : 
D4 0004 CLRL = RO > 0431 : 
04 00047 6$: RET > 0454 : 
| Py 

| 

| 

| 

| 

} 


15 
HFCB 1h-Se -1984 01:17:40 VAX-11 Bliss-32 V4.0-74 
§0-000 Vergep-1986 12:29:31 DrSKSVMEMASTERSET Tins on 
14 0455 
128 56 ND 
144 45 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 72 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocceece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 8 0 1000 00:01.9 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:SCHFCB/OBJ=O0BJ$:SCHFCB MSRC$:SCHFCB/UPDATE=(ENHS$: SCHF CB) 
: bed: 72 code + 0 data bytes 
ime: 0 


he aes OY: Ihe 
Lines/CPU Min: 4600 
Jamey Nts Matar 12110 
qeneey Used: 68 pages 
Compilation Complete 
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